{NeoBook Function}

Language=VBScript
Comment=The function sets new network parameters
Param=[%1]|Text|new IP
Param=[%2]|Text|New subnet mask
Param=[%3]|Text|New gateway
Param=[%4]|Text|New preferred DNS server
Param=[%5]|Text|The Mac address of the adapter
{End}
'###############################
' Author: Andrei Solodyankin (as3856) 
' mail : as3856@rambler.ru
' www/neobooker.ru
'###############################
strComputer = "."
Set objWMIService = GetObject( _
    "winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
    ("Select * from Win32_NetworkAdapterConfiguration " _
        & "where IPEnabled=TRUE")
strIPAddress  = Array("[%1]")
strSubnetMask = Array("[%2]")
strGateway    = Array("[%3]")
strDNSserver  = Array("[%4]")
strMACadapter = "[%5]"
strGatewayMetric = Array(1)
For Each objNetAdapter in colNetAdapters
  If objNetAdapter.MACAddress = strMACadapter then
    errEnable = objNetAdapter.EnableStatic( _
        strIPAddress, strSubnetMask)
    errGateways = objNetAdapter.SetGateways(_
        strGateway, strGatewaymetric)
    errDNS = objNetAdapter.SetDNSServerSearchOrder(strDNSServer)
  end if
Next
